Tidy Tuesday #5

library(dplyr)
library(tidyverse)
library(readr)
library(plotly)
library(gganimate)
library(lubridate)     
library(ggthemes)      
library(janitor)       
library(ggplot2)
library(cowplot)
library(magick)
library(knitr)
theme_set(theme_minimal()) 

world_report<-read_csv("world-happiness-report.csv")

Including Plots

world_report<-world_report %>% 
  clean_names()  # for making them normal variable name

world_col<-world_report %>% 
  group_by(country_name) %>% 
  filter(country_name%in%(c("Colombia","Philippines","China"))) %>% 
  summarise(average_gdp=mean(log_gdp_per_capita)) %>% 
  ggplot(aes(x=country_name,y=average_gdp,fill=country_name)) +
  geom_col()+
  labs(title="Average LogGdp per capita from 2006 to 2020\n of Countries of Marcela,Pia,Xinyi",
       x="",
       y="Average Log Gdp per capita")+
  theme(plot.title = element_text(hjust = 0.5,color="black",face="bold"),
       legend.position = "none")

ggplotly(world_col)

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.